%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: -3 -3 3 3
5 dict
begin
/box
{
	0 0 moveto
	0 1 lineto
	1 1 lineto
	1 0 lineto
	closepath
	fill
} def
/circ
{
	0 0 1 0 360 arc
	closepath
	fill
} def
-2 -2 translate
4 {
	gsave
		2 {
			gsave
				4 {
					gsave
						.5 .5 scale
						box
					grestore 
					1 0 translate
				} repeat
			grestore 
			.5 .5 translate
		} repeat
	grestore 
	0 1 translate
} repeat
end
showpage

